inherited EnterPaymentForm: TEnterPaymentForm
  Left = 471
  Top = 319
  Width = 831
  Height = 450
  Caption = #1056#1077#1076#1072#1082#1090#1080#1088#1086#1074#1072#1085#1080#1077' '#1087#1083#1072#1090#1077#1078#1072
  Constraints.MinHeight = 450
  Constraints.MinWidth = 700
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited grpButtons: TcxGroupBox
    Top = 382
    Width = 823
    inherited btnApply: TcxButton
      Left = 659
      Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100
      ModalResult = 0
      Visible = False
    end
    inherited btnClose: TcxButton
      Left = 739
      Caption = #1047#1072#1082#1088#1099#1090#1100
    end
    object btnMakePayment: TcxButton
      Left = 506
      Top = 9
      Width = 134
      Height = 25
      Action = actMakePayment
      Anchors = [akRight, akBottom]
      Default = True
      TabOrder = 2
    end
  end
  inherited pnlAll: TcxGroupBox
    Height = 382
    Width = 823
    object GradientLabel1: TGradientLabel [0]
      Left = 563
      Top = 82
      Width = 248
      Height = 55
      Anchors = [akTop, akRight]
      AutoSize = False
      Caption = 
        #1065#1077#1083#1082#1085#1080#1090#1077' 2 '#1088#1072#1079#1072' '#1087#1086' '#1089#1090#1088#1086#1082#1077' '#1074' '#1090#1072#1073#1083#1080#1094#1077' "'#1055#1083#1072#1090#1077#1078#1085#1099#1077' '#1090#1088#1077#1073#1086#1074#1072#1085#1080#1103'" '#1076#1083#1103' '#1074 +
        #1099#1073#1086#1088#1072' '#1080#1083#1080' '#1086#1090#1084#1077#1085#1099' '#1074#1099#1073#1086#1088#1072' '#1087#1083#1090#1077#1078#1085#1086#1075#1086' '#1090#1088#1077#1073#1086#1074#1072#1085#1080#1103', '#1087#1086' '#1082#1086#1090#1086#1088#1086#1084#1091' '#1086#1089#1091#1097#1077#1089 +
        #1090#1074#1083#1103#1077#1090#1089#1103' '#1076#1072#1085#1085#1099#1081' '#1087#1083#1072#1090#1077#1078
      Color = 13157631
      ParentColor = False
      WordWrap = True
      ColorTo = 15790320
      EllipsType = etNone
      GradientType = gtFullVertical
      GradientDirection = gdLeftToRight
      Indent = 0
      LineWidth = 2
      Orientation = goHorizontal
      TransparentText = False
      VAlignment = vaTop
      Version = '1.1.1.0'
    end
    inherited grdSelect: TcxGrid
      Left = 11
      Top = 144
      Width = 801
      Height = 205
      Hint = #1044#1072#1086#1081#1085#1086#1081' '#1097#1077#1083#1095#1077#1082' '#1076#1083#1103' '#1074#1099#1073#1086#1088#1072'/'#1086#1090#1084#1077#1085#1099' '#1074#1099#1073#1086#1088#1072
      BorderStyle = cxcbsDefault
      TabOrder = 8
      inherited grdSelectView: TcxGridDBTableView
        OnCellDblClick = grdSelectViewCellDblClick
        OnCustomDrawCell = grdSelectViewCustomDrawCell
        DataController.DataSource = dsSelect
        DataController.Summary.FooterSummaryItems = <
          item
            Format = '# ### ### ##0.##'
            Kind = skSum
            Column = grdSelectViewSummPaym
          end>
        Filtering.ColumnFilteredItemsList = False
        FilterRow.Visible = False
        OptionsSelection.CellSelect = False
        OptionsView.Footer = True
        OptionsView.FooterAutoHeight = True
        inherited clmnIsChecked: TcxGridDBColumn
          Caption = #1042#1099#1073#1088'.'
          Properties.NullStyle = nssUnchecked
          Options.Editing = False
          Width = 40
        end
        object grdSelectViewid: TcxGridDBColumn
          DataBinding.FieldName = 'id'
          Visible = False
        end
        object grdSelectViewa_date: TcxGridDBColumn
          Caption = #1044#1072#1090#1072
          DataBinding.FieldName = 'a_date'
          Options.Editing = False
          Width = 60
        end
        object grdSelectViewpp_type: TcxGridDBColumn
          Caption = #1044#1086#1082#1091#1084#1077#1085#1090
          DataBinding.FieldName = 'pp_type'
          PropertiesClassName = 'TcxLookupComboBoxProperties'
          Properties.KeyFieldNames = 'id'
          Properties.ListColumns = <
            item
              FieldName = 'title'
            end>
          Properties.ListOptions.ShowHeader = False
          Properties.ListSource = DMdl.dsPPType
          Options.Editing = False
          Width = 63
        end
        object grdSelectViewnum: TcxGridDBColumn
          Caption = #1053#1086#1084#1077#1088
          DataBinding.FieldName = 'num'
          Width = 45
        end
        object grdSelectViewsumm: TcxGridDBColumn
          Caption = #1057#1091#1084#1084#1072' '#1087#1086' '#1076#1086#1082'.'
          DataBinding.FieldName = 'summ'
          PropertiesClassName = 'TcxCalcEditProperties'
          Properties.DisplayFormat = '# ### ### ##0.##'
          Options.Editing = False
          Width = 80
        end
        object grdSelectViewSummPaym: TcxGridDBColumn
          Caption = #1054#1087#1083#1072#1090#1072' '#1087#1086' '#1087#1083#1072#1090'.'
          DataBinding.FieldName = 'summ_paym'
          PropertiesClassName = 'TcxCalcEditProperties'
          Properties.DisplayFormat = '# ### ### ##0.##'
          Options.Editing = False
          Width = 89
        end
        object grdSelectViewOther_paym: TcxGridDBColumn
          Caption = #1044#1088#1091#1075#1080#1077' '#1087#1083#1072#1090'.'
          DataBinding.FieldName = 'other_paym'
          PropertiesClassName = 'TcxCalcEditProperties'
          Properties.DisplayFormat = '# ### ### ##0.##'
          Options.Editing = False
          Width = 78
        end
        object grdSelectViewcurr_id: TcxGridDBColumn
          Caption = #1042#1072#1083#1102#1090#1072
          DataBinding.FieldName = 'curr_id'
          PropertiesClassName = 'TcxLookupComboBoxProperties'
          Properties.KeyFieldNames = 'id'
          Properties.ListColumns = <
            item
              FieldName = 'code'
            end>
          Properties.ListOptions.ShowHeader = False
          Properties.ListSource = DMdl.dsCurrency
          Options.Editing = False
          Width = 54
        end
        object grdSelectViewdescr: TcxGridDBColumn
          Caption = #1048#1085#1092#1086#1088#1084#1072#1094#1080#1103
          DataBinding.FieldName = 'descr'
          Options.Editing = False
          Width = 161
        end
        object grdSelectViewIsPayed: TcxGridDBColumn
          Caption = #1054#1087#1083#1072#1095#1077#1085
          DataBinding.FieldName = 'is_payed'
          PropertiesClassName = 'TcxLookupComboBoxProperties'
          Properties.DropDownListStyle = lsFixedList
          Properties.KeyFieldNames = 'code'
          Properties.ListColumns = <
            item
              FieldName = 'title'
            end>
          Properties.ListOptions.ShowHeader = False
          Properties.ListSource = DMdl.dsYesNo
          Properties.ReadOnly = True
          Width = 50
        end
        object grdSelectVieworder_id: TcxGridDBColumn
          Caption = #1053#1086#1084#1077#1088' '#1079#1072#1082'.'
          DataBinding.FieldName = 'order_id'
          PropertiesClassName = 'TcxLookupComboBoxProperties'
          Properties.DropDownListStyle = lsFixedList
          Properties.KeyFieldNames = 'id'
          Properties.ListColumns = <
            item
              FieldName = 'num'
            end>
          Properties.ListOptions.ShowHeader = False
          Properties.ListSource = DMdl.dsOrderNums
          Options.Editing = False
          Width = 67
        end
      end
    end
    object cxLabel1: TcxLabel
      Left = 224
      Top = 10
      Caption = #1044#1072#1090#1072':'
      Transparent = True
    end
    object cxLabel2: TcxLabel
      Left = 8
      Top = 10
      Caption = #1053#1086#1084#1077#1088' '#1087'/'#1087':'
      Transparent = True
    end
    object cxLabel6: TcxLabel
      Left = 8
      Top = 39
      Caption = #1055#1083#1072#1090#1077#1083#1100#1097#1080#1082':'
      Transparent = True
    end
    object edtPayer: TcxButtonEdit
      Left = 88
      Top = 37
      Properties.Buttons = <
        item
          Default = True
          Kind = bkEllipsis
        end>
      Properties.ReadOnly = True
      Properties.OnButtonClick = edtPayerPropertiesButtonClick
      Properties.OnEditValueChanged = edtPayerPropertiesEditValueChanged
      TabOrder = 2
      Width = 313
    end
    object cxLabel3: TcxLabel
      Left = 8
      Top = 67
      Caption = #1058#1080#1087' '#1087#1083#1072#1090#1077#1078#1072':'
      Transparent = True
    end
    object cxLabel4: TcxLabel
      Left = 8
      Top = 97
      Caption = #1057#1091#1084#1084#1072':'
      Transparent = True
    end
    object cxLabel5: TcxLabel
      Left = 224
      Top = 97
      Caption = #1042#1072#1083#1102#1090#1072':'
      Transparent = True
    end
    object cmbCurr: TcxDBLookupComboBox
      Left = 280
      Top = 95
      DataBinding.DataField = 'curr_id'
      DataBinding.DataSource = dsLUp
      Properties.DropDownListStyle = lsFixedList
      Properties.KeyFieldNames = 'id'
      Properties.ListColumns = <
        item
          FieldName = 'code'
        end>
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = DMdl.dsCurrency
      Properties.OnEditValueChanged = cmbCurrPropertiesEditValueChanged
      TabOrder = 5
      Width = 121
    end
    object edtNum: TcxDBTextEdit
      Left = 88
      Top = 8
      DataBinding.DataField = 'num'
      DataBinding.DataSource = dsLUp
      Properties.OnEditValueChanged = edtNumPropertiesEditValueChanged
      TabOrder = 0
      Width = 121
    end
    object dtPayment: TcxDBDateEdit
      Left = 272
      Top = 8
      DataBinding.DataField = 'p_date'
      DataBinding.DataSource = dsLUp
      Properties.OnEditValueChanged = dtPaymentPropertiesEditValueChanged
      TabOrder = 1
      Width = 129
    end
    object edtSumm: TcxDBCalcEdit
      Left = 88
      Top = 96
      DataBinding.DataField = 'full_summ'
      DataBinding.DataSource = dsLUp
      Properties.DisplayFormat = '# ### ### ##0.##'
      Properties.OnEditValueChanged = edtSummPropertiesEditValueChanged
      TabOrder = 4
      Width = 121
    end
    object cmbNB: TcxDBLookupComboBox
      Left = 88
      Top = 67
      DataBinding.DataField = 'nb'
      DataBinding.DataSource = dsLUp
      Properties.DropDownListStyle = lsFixedList
      Properties.KeyFieldNames = 'code'
      Properties.ListColumns = <
        item
          FieldName = 'title'
        end>
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = DMdl.dsNB
      Properties.OnEditValueChanged = cmbNBPropertiesEditValueChanged
      TabOrder = 3
      Width = 313
    end
    object cmbPaymentListFilter: TcxComboBox
      Left = 178
      Top = 354
      Anchors = [akLeft, akBottom]
      Properties.DropDownListStyle = lsFixedList
      Properties.Items.Strings = (
        #1087#1086' '#1079#1072#1082#1072#1079#1091
        #1087#1086' '#1087#1083#1072#1090#1077#1083#1100#1097#1080#1082#1091
        #1087#1086' '#1087#1083#1072#1090#1077#1078#1085#1086#1084#1091' '#1087#1086#1088#1091#1095#1077#1085#1080#1102
        #1074#1089#1077)
      Properties.OnChange = cmbPaymentListFilterPropertiesChange
      TabOrder = 6
      Width = 247
    end
    object cxLabel7: TcxLabel
      Left = 9
      Top = 356
      Anchors = [akLeft, akBottom]
      Caption = #1057#1087#1080#1089#1086#1082' '#1087#1083#1072#1090#1077#1078#1085#1099#1093' '#1090#1088#1077#1073#1086#1074#1072#1085#1080#1081':'
      Transparent = True
    end
    object cxLabel8: TcxLabel
      Left = 8
      Top = 123
      Caption = #1054#1089#1085#1086#1074#1072#1085#1080#1077' '#1087#1083#1072#1090#1077#1078#1072':'
      ParentFont = False
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -11
      Style.Font.Name = 'MS Sans Serif'
      Style.Font.Style = [fsBold]
      Style.IsFontAssigned = True
      Transparent = True
    end
    object chkNotPayed: TcxCheckBox
      Left = 457
      Top = 355
      Anchors = [akLeft, akBottom]
      Caption = #1053#1077' '#1086#1087#1083#1072#1095#1077#1085#1085#1099#1077
      Properties.OnChange = chkNotPayedPropertiesChange
      State = cbsChecked
      TabOrder = 7
      Transparent = True
      Width = 121
    end
  end
  inherited tblSelect: TUniTable
    TableName = 'acts'
    Left = 40
    Top = 296
  end
  inherited dsSelect: TUniDataSource
    DataSet = memData
    Left = 104
    Top = 288
  end
  inherited CustomSelectActionList: TActionList
    inherited actSelect: TAction
      OnExecute = actSelectExecute
    end
    object actMakePayment: TAction
      Caption = #1055#1088#1086#1074#1077#1089#1090#1080' '#1087#1083#1072#1090#1077#1078
      OnExecute = actMakePaymentExecute
    end
  end
  object memData: TdxMemData
    Indexes = <>
    SortOptions = []
    Left = 160
    Top = 240
  end
  object dsLUp: TUniDataSource
    DataSet = quPayment
    Left = 232
    Top = 208
  end
  object quPayment: TUniQuery
    Connection = DMdl.dmConnection
    SQL.Strings = (
      'select * from payments where id = :id')
    Left = 208
    Top = 192
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'id'
      end>
  end
  object quSelect: TUniQuery
    Connection = DMdl.dmConnection
    SQL.Strings = (
      'SELECT * FROM acts')
    Left = 96
    Top = 280
    object quSelectIsChecked: TIntegerField
      FieldKind = fkCalculated
      FieldName = 'IsChecked'
      Calculated = True
    end
    object quSelectid: TIntegerField
      FieldName = 'id'
    end
    object quSelecta_date: TDateField
      FieldName = 'a_date'
    end
    object quSelectdescr: TStringField
      FieldName = 'descr'
      Size = 255
    end
    object quSelectsumm: TFloatField
      FieldName = 'summ'
    end
    object quSelectcurr_id: TIntegerField
      FieldName = 'curr_id'
    end
    object quSelectorder_id: TIntegerField
      FieldName = 'order_id'
    end
    object quSelectnum: TStringField
      FieldName = 'num'
    end
    object quSelectpp_type: TIntegerField
      FieldName = 'pp_type'
    end
    object quSelectis_payed: TIntegerField
      FieldName = 'is_payed'
    end
    object quSelectsumm_paym: TFloatField
      FieldName = 'summ_paym'
    end
    object quSelectother_paym: TFloatField
      FieldName = 'other_paym'
    end
  end
end
